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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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0009 C* * 
0010 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0011 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
pole C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
001 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0014 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
SFE es TRANSFERRED. bd 
w ® 
0017 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0018 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
sid > CORPORATION. ® 
® *® 
0021 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
Bos¢ “ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. we 
® 
0024 Ce * 
ooSe CR Ree ee RRR AEE AERA AAA AERRE 
00 
5 44 C Author Brian Porter Creation date 06-MAY-1981 
it 94 
0030 c++ 
oo Cc Functional description: 
C 
0038 c This module displays uba entries for the 11/730. 
C 
0035 c Modified by: 
0036 Cc 
0037 C V03-003 SARO159 Sharon A. Reynolds 13~0c t-1983 
0038 C Added an SYE update that makes register heralds 
st 4 ; generic. 
0041 C v03-002 SARO102 Sharon A. Reynolds, 20-Jun-1983 
Bog C Changed the carriage control in the ‘format’ statements 
Spee : for use with ERF. 
0045 C v03-001 SARO053 Sharon A. Reynolds, 13-Jun-1983 
Bog ; Removed brief/cryptic support. 
0048 Cc v02-003 BP0003 Brian Porter, 19-NOV-1981 
ir C Added dispatching. 
C 
0051 c v02-002 BP0002 Brian Porter, 11-NOV-1981 
Boas c Changed register herald. 
C 
0054 Cc v02-001 BP0001 Brian Porter, 01-JUL-1981 
0055 C Added call to LOGGER. 
tt 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


te 


4-56 
F.SRCJUBAERR.FOR; 1 


Page 


02 
Oe 
0 
0 
0 
0 
0 
) 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


PORSPOPONONPONPYNPONoPonofrofnepnofpenyngnyd 


Seer te has Snpemandnipeehes see nat i taalcsetrcis 
pr1abe POii3s | MN aUWSAREREN Peae 28 caueacrr.ror:1 2% |? 


>a 
nm 


33 


aw 


subroutine uba_errors (lun,option) 


0064 

B08? include ‘src$:msghdr.for /nolist' 
0125 

0126 

3 byte lun 

0129 character*1 option 

0130 

0131 

8186 

aby if (LibSextzv(24,8,emb$l_hd_sid) .eq. 3) then 
0135 if (option .eq. 'S") then 

0136 

0137 call dw730_error (lun) 

0138 endif 

0139 c 

0140 Cc for future expansion the IF-THEN-ELSE should be expanded 
0141 c at this point. 

pies c 

014 endif 

0144 

0145 return 

0146 end 
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PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 51 PIC CON REL LCL SHR EXE’ RD NO 
1 SPDATA PIC CON REL LCL SHR NOEXE RD NO 
¢ SLOCAL 3 PIC CON REL LCL NOSHR NOEXE RD 
EMB 51 PIC OVR REL GBL SHR NOEXE' RD 
Total Space Allocated 603 
ENTRY POINTS 
Address Type Name 
0-00000000 UBA_ERRORS 
VARIABLES 
Address Type Name Address Type Name 
3-00000000 I*4 EMBS$L_HD_SID 3-00000004 I*2 te HD_ENTRY 
3-0000000E I*2 EMBSW HD “ERRSEQ AP-000000048 L*1 LUN 
AP-00000008@ CHAR OPTION 
ARRAYS 
Address Type Name Bytes Dimensions 
3-00000000 L*1 EMB 512 (0:511) 
3-00000006 I*4 EMBS$Q_HD_TIME 8 (2) 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
DW730_ERROR 


Type Name 
I*4 LIBSEXTZV 
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WRT LONG 
WRT LONG 
WRT LONG 
WRT LONG 
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subroutine dw730_error (Lun) 
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include ‘src$:msghdr.for /nolist' 


byte Lun 

integers4 uba_csr 

equivalence (emb(16) ,uba_csr) 

character*20 viuba_csr (14:16) 

data viuba_csr(14) /*WRITE ERROR*'/ 

data viuba_csr(15)  /"MAP PARITY ERROR*'/ 
data viuba_csr(16) /"NON-EXISTENT MEMORY*'/ 
character*21 v2uba_csr (31:31) 

data v2uba_csr(31) /*READ DATA SUBSTITUTE®'/ 


call fretof (lun) 

call header (lun) 

call logger (Lun,'''DW'’ ERROR") 
call Linchk (lun,2) 


write(lun,10) uba_csr 
format(/' ',t8,'' Bw’ CSR',t24,28.8) 


call output (lun,uba_csr,viluba_csr,14,14,16,'0') 
call output (lun,uba_csr,v2uba_csr,31,31,31,'0") 
Return 

End 
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DW730_ERROR 


PROGRAM SECTIONS 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


ARRAYS 


300000000 L*1 
3-00000006 14 
00000 


LABELS 
Address 
1-0000001D 10° 


Type Name 
FRCTOF 


Label 


Total Space Allocated 


Name 
DW730_ERROR 


Name 
EMBSL_HD_SID 


EMBSW_ ND TERRSEQ 
UBA_CSR ~ 


EMB 
EMBSQ_HD_ TIME 


CHAR V1UBA_ “CSR 
CHAR V2UBA_CSR 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 


HEADER 


$1 
542 


950 


14 
$ep-1984 00:17:33 VAX=-11 FORTRAN 
1p-Sep-1984 00:17:53 


DISKSVMSMASTER 
Attributes 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE &D NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Address Type Name 
3-00000004 if on HD_ENTRY 
AP-00000004a L*1 
Dimensions 
(0:511) 
(2) 
(14:16) 
(31:31) 
Type Name Type Name Type Name 
LINCHK LOGGER OUTPUT 


¥3 0-26 Page 5 
: CERF .SRCJUBAERR.FOR; 1 
| 


S 
z 


MIPOIPOIPIPIPIPUNINININIPIPY POTD 


) 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


MIMIMITININIPUNINIPOPONY: 


COOOCOOCSOCCOCOoOoOCoOO 


SOOOSOCCCOOOCOCOCOoOSoO 


™ 


DW730_ERROR ipege Sep- 3 = VAX"11_ FORTRAN Y3.4-56 Page 
8e0n 1 8Be Prise Pe WER RERAN Yost" 28 -aueacre.rors1 
COMMAND QUALIFIERS 
FORTRAN /LIS=L1S$:UBAERR/OBJ=0BJ$:UBAERR MSRC$:UBAERR 
/CHECK=(NOBOUNDS , OV RceBaeth NOUNDERF LOW) 
/DEBUGS (NOSYMBOL § TRACEB 
/STANDARD= (NOS YNTAX RM) 


/SHOW= (NOPREP: PROCESSORS PNOINCLODE.A 
/F77 /NOG_FLOATING /1 SOPTIMIZE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 1.83 seconds 
Elapsed Time: 6.95 seconds 
Page Faults: 120 
Dynamic Memory: 166 
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